home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / ADDER.bas next >
BASIC Source File  |  2003-06-12  |  833b  |  19 lines
  1. 5  DIM WO$(1000)
  2. 6 A$(1) = "GRADES 1-4":A$(2) = "GRADES 5-8":A$(3) = "GRADES 9-12":A$(4) = "COLLEGE"
  3. 10 D$ =  CHR$(4)
  4. 11  HOME : VTAB 5: PRINT "1 GRADES 1-4": PRINT : PRINT "2 GRADES 5-8": PRINT : PRINT "3 GRADES 9-12": PRINT : PRINT "4 COLLEGE": PRINT : PRINT : INPUT "    ENTER VOCABULARY LEVEL ";A$: IF  VAL(A$) <1  OR  VAL(A$) >4  THEN 11
  5. 12 A =  VAL(A$)
  6. 20  PRINT : PRINT D$;"OPEN ";A$(A);" WORDS,L15"
  7. 30  PRINT D$;"READ ";A$(A);" WORDS,R1"
  8. 40  INPUT NW
  9. 50  FOR I = 1 TO NW: INPUT WO$(I): NEXT 
  10. 60  PRINT D$;"CLOSE"
  11. 70 NW = NW +1
  12. 75  HOME : VTAB 7: HTAB 5: INPUT "ENTER WORD OR 'CTL S' ";WO$(NW): IF  ASC(WO$(NW)) = 19  THEN NW = NW -1: GOTO 130
  13. 80  GOTO 70
  14. 130  PRINT 
  15. 140  PRINT D$;"OPEN ";A$(A);" WORDS,L15"
  16. 150  PRINT D$;"WRITE ";A$(A);" WORDS,R1"
  17. 160  PRINT NW
  18. 170  FOR I = 1 TO NW: PRINT WO$(I): NEXT 
  19. 180  PRINT D$"CLOSE"